package require critcl

critcl::ccode {
    #include "math.h"
    #include "stdlib.h"
    #include "stdio.h"
}

critcl::cproc gammar { double v } double {    
    printf("v:%f\n",v);
    printf("g:%f\n",gamma(v));
    return exp(gamma(v));
}

puts "[gammar 1.5]"